home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 46.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  1.1 KB  |  51 lines
  1. * 46.asm    TLbusy  TLunbusy      version 0.0  1.9.97
  2.  
  3.  
  4. ; tandem.library has 2 routines for the busy pointer:
  5. ;
  6. ; TLbusy     implements the busy pointer (for this window only)
  7. ; TLunbusy   returns to the normal pointer
  8. ;
  9. ; If you examine the 2.04 method in Tandem.i, you'll see how to change
  10. ; the pointer to whaever you like.
  11.  
  12.  
  13.  include 'Front.i'
  14.  
  15.  
  16. strings: dc.b 0
  17. st_1: dc.b 'Teaching/46.asm',0 ;1
  18.  dc.b 'Click me to make me busy',0 ;1
  19.  dc.b 'Click me to make me un-busy',0 ;2
  20.  dc.b 'Click me to quit',0 ;3
  21.  dc.b 'Busysetup failed - out of mem',0
  22.  dc.b 'Can''t start - out of mem',0 ;5
  23.  dc.b 'Teaching/45.asm',0 ;6
  24.  
  25.  ds.w 0
  26.  
  27.  
  28. * control overall execution
  29. Program:
  30.  TLwindow0                 ;open standard window
  31.  beq Pr_bad                ;bad if can't
  32.  
  33.  TLstring #2,#10,#5        ;wait for response
  34.  TLkeyboard
  35.  TLbusy                    ;busy pointer
  36.  
  37.  TLstring #3,#10,#18       ;wait for response
  38.  TLkeyboard
  39.  TLunbusy                  ;restore normal pointer
  40.  
  41.  TLstring #4,#10,#31       ;wait for final response
  42.  TLkeyboard
  43.  bra.s Pr_done             ;quit ok
  44.  
  45. Pr_bad:
  46.  TLbad #6                  ;report if TLwindow failed
  47.  rts
  48.  
  49. Pr_done:
  50.  rts
  51.